home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 247_02 / pi.c < prev    next >
Text File  |  1989-04-17  |  384b  |  18 lines
  1. /*
  2.  *  Program to calculate pi
  3.  */
  4.  
  5. #include <stdio.h>
  6. #include "miracl.h"
  7.  
  8. main()
  9. { /* Calculate pi using Guass-Legendre method */
  10.     flash pi;
  11.     mirsys(-35,MAXBASE);
  12.     pi=mirvar(0);
  13.     printf("Calculating pi... \n");
  14.     POINT=ON;
  15.     fpi(pi);
  16.     cotnum(pi,stdout);
  17. }
  18.